home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / LOCSTIME.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  2KB  |  52 lines
  1. 10   CLS
  2. 20   KEY OFF
  3. 30   REM
  4. 40   PRINT : PRINT : PRINT
  5. 50   PRINT TAB(28) " AN ASTRONOMY PROGRAM"
  6. 60   PRINT : PRINT
  7. 70   PRINT TAB(20) "-------- LOCAL SIDEREAL TIME --------"
  8. 80   PRINT : PRINT :
  9. 90   PRINT TAB(30) " BY CHRIS SPRATT"
  10. 100   PRINT
  11. 110   PRINT TAB(34) "0CT. 1984"
  12. 120   PRINT
  13. 130   PRINT : PRINT : GOSUB 460
  14. 140  CLS:PRINT:PRINT :PRINT
  15. 150  PRINT TAB(25)   "LOCAL SIDEREAL TIME"
  16. 160  PRINT :PRINT
  17. 170  PRINT TAB(20):  INPUT  "LONGITUDE WEST OF OBERVATORY"  ; L
  18. 180  A = 1.0027379093#
  19. 190  PRINT :
  20. 200  PRINT TAB(20): INPUT " DECIMAL PART OF DAY" ;B
  21. 210  T = B * 24 * A : OBST = B
  22. 220  PRINT :PRINT
  23. 230  PRINT TAB(13) "SIDEREAL TIME AT O HOURS U.T. ON OBSERVED DAY"
  24. 240  PRINT:PRINT
  25. 250  PRINT TAB(29) : INPUT "HOURS";H
  26. 260  PRINT TAB(27) : INPUT "MINUTES";M
  27. 270  REM
  28. 280  PRINT TAB(27) : INPUT "SECONDS";S
  29. 290  CLS
  30. 300  C = (S/60 + M)/60 + H
  31. 310  T = T + C
  32. 320  IF T > 24 THEN  T = T - 24
  33. 330  IF T < 0 THEN T = T + 24
  34. 340  T = T - L/15
  35. 350  IF T > 24 THEN T = T - 24
  36. 360  IF T < 0 THEN T = T + 24
  37. 370  PRINT :PRINT :PRINT :PRINT
  38. 380  T1= T * 15
  39. 390   PRINT TAB(20) "LOCAL SIDERAL TIME  (DEC. HRS)   = ";T
  40. 400   PRINT
  41. 410  PRINT TAB(20) "LOCAL SIDEREAL TIME --- DEGREES  = ";T1
  42. 420  PRINT : PRINT TAB(20) "LOCAL SIDERAL TIME =" ;INT(T);" HOURS";   M;   "MIN";      C;"SEC"
  43. 430   LOCATE 15,24
  44. 440   PRINT TAB(20) : INPUT "DO YOU WANT ANOTHER DATE Y/N";A$
  45. 450   IF A$ = "Y" THEN GOTO  140    ELSE 510
  46. 460   LOCATE 24,25
  47. 470   PRINT "PRESS ANY KEY TO CONTINUE"
  48. 480   B$ = INPUT$ (1)
  49. 490   CLS : PRINT : PRINT : PRINT : PRINT
  50. 500  RETURN
  51. 510   END
  52.